home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / comm / mail / mailstat.lha / mailstat.p < prev    next >
Encoding:
Text File  |  2000-03-17  |  4.3 KB  |  184 lines
  1. ; 
  2. ; 
  3. ; (c) 1999 Cyborg 
  4.  
  5.     {* Include sys:coder/preass/Options.p *}
  6.     {* Include sys:coder/preass/Prozeduren.p *}
  7.  
  8.     {* String: Version="$VER: mailstat 0.1"*}
  9.  
  10.     {* Structure sockaddr_in(),sin_len(BYTE),sin_family(BYTE),sin_port(WORD)
  11.                  sin_addr(LONG),DUMMY1(LONG),DUMMY2(LONG)*}
  12.     
  13.     {* Structure Sockaddr(),SA_Len(BYTE),SA_Family(BYTE)
  14.                  SA_Data[14]*}
  15.  
  16.     {* Structure Hostent,H_name(CHAR),h_aliases(APTR),h_addrtype(LONG)
  17.                  h_length(LONG),H_addr_list(CHAR)*}
  18.  
  19.     {* IncBlock: Puffer,2048*}
  20.  
  21.     {* Const AF_INET=2
  22.              Sock_STREAM=1
  23.              FIONBIO=$8004667e*}
  24.  
  25.     {* incVar: Addr*}
  26.  
  27.  
  28.  
  29. recv[d0,d1,d2,d3]:
  30.     {* Stackframe Socket=d0,Zeiger=d1,Laenge=d2,time=d3,Readlen*}
  31.     While Time>0
  32.      {
  33.       Readlen=TCP_recv(Socket,Zeiger,Laenge,0)
  34.       If Readlen>0 breakwhile
  35.       Time==Time-25
  36.       Delay(25)
  37.      }
  38.     {* UnFrameReturn Readlen*}
  39.    
  40. Removeeol[a0,d7]:
  41.     subq.l #1,d7
  42. .l1:cmpi.b #$0a,(a0)
  43.     bne .l2
  44.     move.b #" ",(a0)+
  45.     dbra d7,.l1
  46.     RTS
  47. .l2:lea 1(a0),a0
  48.     dbra d7,.l1
  49.     RTS
  50.  
  51. TCP_Write[d0,a0,d1,d2]:
  52.     {* StackFrame wr,Socket=d0,msg=a0,MsgLen=d1,flags=d2*}
  53.     While (Wr=TCP_Send(Socket,msg,msglen,flags))#msglen
  54.       {
  55.         Msg==Msg+Wr
  56.         Msglen==MsgLen-Wr
  57.       }
  58.     {* UnFrameReturn *}
  59.  
  60.  
  61.     {* Incblock: Options,50*}
  62.  
  63. TCPFgets[d0]
  64.     {* StackFrame Socket=d0,Res*}
  65.     If (res=Recv(Socket,&puffer,1000,500))>0
  66.      {
  67.       Vprintf(&Puffer,>NullTags:0)
  68.       Res=.w0(&Puffer)
  69.       IF Res=#"+O" 
  70.        {
  71.          {* UnFrameReturn Res*}
  72.        }
  73.      }
  74.     {* UnFrameReturn 0*}
  75.  
  76. GleichHost[a0,a1]:
  77.     move.b (a0)+,d0
  78.     move.b (a1)+,d1
  79.     cmpi.b #$20,d0
  80.     beq .ende
  81.     cmpi.b #".",d0
  82.     beq .Punkt
  83.     cmpi.b #".",d1
  84.     beq .Ende
  85.     bset #5,d0
  86.     bset #5,d1
  87.     cmp.b d0,d1
  88.     beq GleichHost    
  89. .Ende:
  90.     moveq.l #0,d0
  91.     RTS
  92. .punkt:
  93.     cmpi.b #" ",d1
  94.     beq .ok
  95.     cmpi.b #$0a,d1
  96.     beq .ok
  97.     cmpi.b #$00,d1
  98.     beq .ok
  99.     cmp.b d0,d1
  100.     bne .Ende
  101. .ok:moveq.l #1,d0
  102.     RTS
  103.  
  104.  
  105. Start:
  106.     OH=output()
  107. ;    Copymem("rzcomm1\$0a\$00",&options,?)   
  108. ;    Adresse==#Options
  109. ;    laenge=Countstring(&options)
  110.     If GetFilename()=0 
  111.      {
  112.        Write(OH,"Kein Hostname angegeben\n",?)
  113.        {* Return 5*}
  114.      }
  115.     {* IncBlock: Username,50*}
  116.     {* IncBlock: Passwort,50*}
  117.     {* Flush *}
  118.     VPrintf("Hallo\n",&NullTags)
  119.     CopyNextString(NextArg,&username)
  120.     CopyNextString(NextArg,&Passwort)
  121.     If (IH=Open("envarc:tcp/mailstat.cfg",#mode_old))#0
  122.      {
  123.        While Fgets(IH,&Puffer,100)#0
  124.         {
  125.           If GleichHost(&Puffer,&Filename)#0
  126.            {
  127.              CopyNextString(&Puffer,&Filename)
  128.              CopyNextString(NextArg,&Username)
  129.              CopyNextString(NextArg,&Passwort)
  130.              {* Break *}
  131.            }
  132.         }
  133.        Close(IH)
  134.      }
  135.     If (socket=TCP_Socket(AF_INET,SOCK_STREAM,0))#-1
  136.      {
  137.       Vprintf("Socket open...\n",#NullTags)
  138.       If (he=TCP_gethostbyname(&Filename))#0
  139.        {
  140.         Vprintf("Hostname ok...\n",#NullTags)
  141.         #AF_Inet=>sockaddr_in.sin_family
  142.         #110=>sockaddr_in.sin_port
  143.         Zeiger=.lhostent.H_addr_list(he)
  144.         addr==(Zeiger)
  145.         addr==(Addr)
  146.         addr=>sockaddr_in.sin_addr
  147.         ret=TCP_Connect(Socket,&Sockaddr_in,sizeof(sockaddr_in))
  148.         If ret#-1
  149.          {
  150.            Vprintf("Connected...\n",#NullTags)
  151.            If TCP_IoCtlSocket(Socket,FIONBIO,>FIONBIOTag:1,0)=-1
  152.             {
  153.               TCP_Errno()
  154.             }
  155.            Fillbuffer(&Puffer,0,10)
  156.            Vprintf("Begrüßung durch ...\n",#NullTags)
  157.            If TCPFGets(Socket)#0
  158.               {
  159.                Puffer=="USER "+Username+"\n"
  160.                len=Countstring(&Puffer)
  161.                TCP_Write(Socket,&Puffer,Len,0)
  162.                If TCPFGets(Socket)#0
  163.                 {
  164.                  Puffer=="PASS "+Passwort+"\n"
  165.                  len=Countstring(&Puffer)
  166.                  TCP_Write(Socket,&Puffer,Len,0)
  167.                  If TCPFgets(Socket)#0
  168.                   {
  169.                    TCP_Write(Socket,"LIST\n",?,0)
  170.                    If (res=Recv(Socket,&puffer,1000,500))>0
  171.                     {
  172.                       Vprintf(&Puffer,&NullTags)
  173.                     }
  174.                    
  175.                   }
  176.                 }
  177.                TCP_Write(Socket,"QUIT\n",?,0)
  178.               }
  179.          }
  180.        }
  181.       TCP_CloseSocket(Socket)
  182.      }
  183.     {* Return *}
  184.